home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
bat2exec.zip
/
BAT2EXEC.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-07-03
|
31KB
|
391 lines
100 REM - BASIC PROGRAM TO CREATE BAT2EXEC.COM
110 CLS:PRINT "Creating BAT2EXEC.COM": OPEN "BAT2EXEC.COM" AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 372
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 372 - I ;
150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
170 IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
180 NEXT J
190 READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
200 IF LINECHECK# = LINESUM# THEN GOTO 220
210 LOCATE 4,2: PRINT "Error in line #" ; 260 + 10 * I: GOTO 260
220 NEXT I
230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
250 PRINT: PRINT "BAT2EXEC.COM created successfully": SYSTEM
260 PRINT: PRINT "BAT2EXEC.COM is not valid!": END
270 DATA E9, DA, 2, D, A, 42, 41, 54, 32, 43, 4F, 4D, 20, 31, 2E, 30, 473
280 DATA 20, 28, 63, 29, 20, 31, 39, 39, 30, 20, 5A, 69, 66, 66, 20, 43, 3D9
290 DATA 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 658
300 DATA 2E, A, D, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 542
310 DATA 20, 44, 6F, 75, 67, 6C, 61, 73, 20, 42, 6F, 6C, 69, 6E, 67, A, 574
320 DATA D, 24, 1A, 0, 1, 0, 0, 49, 46, 0, 52, 45, 4D, 0, 46, 4F, 254
330 DATA 52, 0, 45, 43, 48, 4F, 0, 47, 4F, 54, 4F, 0, 45, 58, 49, 54, 3E4
340 DATA 0, 50, 41, 55, 53, 45, 0, 53, 48, 49, 46, 54, 0, 53, 45, 54, 3E8
350 DATA 0, 43, 41, 4C, 4C, 0, 50, 41, 54, 48, 0, 50, 52, 4F, 4D, 50, 3D7
360 DATA 54, 0, 43, 44, 0, 4D, 44, 0, 52, 44, 0, 43, 4C, 53, 0, 44, 328
370 DATA 49, 52, 0, 44, 45, 4C, 0, 52, 45, 4E, 0, 56, 45, 52, 0, 56, 398
380 DATA 4F, 4C, 0, 43, 54, 54, 59, 0, 43, 48, 43, 50, 0, 54, 59, 50, 3FA
390 DATA 45, 0, 43, 4F, 50, 59, 0, 44, 41, 54, 45, 0, 54, 49, 4D, 45, 3CD
400 DATA 0, 45, 52, 41, 53, 45, 0, 43, 48, 44, 49, 52, 0, 4D, 4B, 44, 3B6
410 DATA 49, 52, 0, 52, 4D, 44, 49, 52, 0, 42, 52, 45, 41, 4B, 0, 52, 3D0
420 DATA 45, 4E, 41, 4D, 45, 0, 44, 45, 4C, 45, 54, 45, 0, 56, 45, 52, 406
430 DATA 49, 46, 59, 0, 43, 4F, 4D, 4D, 41, 4E, 44, 0, 0, E2, 7, 5E, 42E
440 DATA C, 38, 9, CD, B, 2A, A, 5E, C, 38, C, 4B, C, 94, B, 4F, 34C
450 DATA B, 94, B, 94, B, 4F, B, 2, B, AD, A, 45, 52, 52, 4F, 52, 3F1
460 DATA 4C, 45, 56, 45, 4C, 45, 58, 49, 53, 54, 2F, 43, 20, 0, 0, 0, 397
470 DATA 0, 0, 2, F, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, FF, FF, 20F
480 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
490 DATA 0, 0, 54, 5E, 4D, 5E, 50, 5F, 24, 31, 2E, 21, 21, 21, 0, 0, 2F2
500 DATA 0, 54, 5E, 4D, 5E, 50, 5F, 24, 32, 2E, 21, 21, 21, 0, 38, 1A, 345
510 DATA 0, 40, 0, 0, 0, 0, 0, 0, 2E, 43, 4F, 4D, 0, 20, 20, 20, 1AD
520 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, D, A, 45, 72, 72, 6F, 2EF
530 DATA 72, 20, 69, 6E, 20, 6C, 69, 6E, 65, 20, 24, 4E, 65, 65, 64, 20, 511
540 DATA 44, 4F, 53, 20, 32, 2E, 30, 20, 6F, 72, 20, 67, 72, 65, 61, 74, 4CA
550 DATA 65, 72, 24, D, A, 53, 79, 6E, 74, 61, 78, 3A, 20, 42, 41, 54, 4CA
560 DATA 32, 43, 4F, 4D, 20, 5B, 66, 69, 6C, 65, 6E, 61, 6D, 65, 5D, D, 537
570 DATA A, 24, 43, 61, 6E, 27, 74, 20, 66, 69, 6E, 64, 20, 69, 6E, 70, 503
580 DATA 75, 74, 20, 66, 69, 6C, 65, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 75, 5D5
590 DATA 67, 68, 20, 6D, 65, 6D, 6F, 72, 79, 24, 4E, 6F, 20, 69, 6E, 70, 5D0
600 DATA 75, 74, 20, 66, 69, 6C, 65, 20, 73, 70, 65, 63, 69, 66, 69, 65, 611
610 DATA 64, 24, 43, 4F, 4D, 20, 66, 69, 6C, 65, 20, 73, 69, 7A, 65, 20, 522
620 DATA 74, 6F, 6F, 20, 62, 69, 67, 24, 53, 79, 6E, 74, 61, 78, 20, 65, 5D4
630 DATA 72, 72, 6F, 72, 24, 43, 6F, 6D, 70, 69, 6C, 65, 72, 20, 64, 61, 609
640 DATA 74, 61, 20, 62, 75, 66, 66, 65, 72, 20, 66, 75, 6C, 6C, 24, 4C, 5B2
650 DATA 61, 62, 65, 6C, 20, 64, 65, 66, 69, 6E, 65, 64, 20, 6D, 6F, 72, 5F1
660 DATA 65, 20, 74, 68, 61, 6E, 20, 6F, 6E, 63, 65, 24, 4C, 61, 62, 65, 58D
670 DATA 6C, 20, 20, 20, 20, 20, 20, 20, 20, 20, 6E, 6F, 74, 20, 66, 6F, 3D2
680 DATA 75, 6E, 64, 24, 49, 6C, 6C, 65, 67, 61, 6C, 20, 64, 69, 73, 6B, 5F0
690 DATA 20, 73, 70, 65, 63, 69, 66, 69, 65, 64, 24, 46, 4F, 52, 20, 6C, 563
700 DATA 6F, 6F, 70, 73, 20, 63, 61, 6E, 6E, 6F, 74, 20, 62, 65, 20, 6E, 5D9
710 DATA 65, 73, 74, 65, 64, 24, 4E, 6F, 74, 20, 79, 65, 74, 20, 69, 6D, 5D2
720 DATA 70, 6C, 69, 6D, 65, 6E, 74, 65, 64, 24, D, A, 24, BA, 3, 1, 4DF
730 DATA B4, 9, CD, 21, FC, B4, 30, CD, 21, 86, C4, BA, AB, 2, 80, FC, 8A6
740 DATA 2, 72, 50, BC, 38, 1A, B4, 4A, BB, 0, 10, CD, 21, A1, 7E, 2, 5AA
750 DATA 3, 6, 80, 2, A3, 4A, 2, B4, 48, BB, 0, 10, CD, 21, BA, F8, 5E1
760 DATA 2, 72, 30, A3, 48, 2, B4, 48, BB, 0, 10, CD, 21, 72, 24, A3, 57F
770 DATA 52, 2, BE, 80, 0, 33, C9, A, C, 74, 1B, 46, 32, DB, E8, 55, 5C3
780 DATA A, 72, 13, 8A, 4, 3C, 2F, 74, 7, E8, D3, 9, 72, 5, EB, 6, 52F
790 DATA BA, E2, 2, E9, 5A, 1, 8B, 36, 7E, 2, 8B, 3E, 4A, 2, 81, C7, 680
800 DATA 1E, 0, FF, 6, 86, 2, A0, 55, 1, A2, 56, 1, 32, DB, E8, 31, 5C0
810 DATA A, 73, 6, 3C, D, 74, EB, EB, 18, E8, 66, 2, 80, 3C, 40, 75, 5EF
820 DATA 6, C6, 6, 56, 1, 0, 46, E8, 4A, 1, 72, 2, EB, D4, E9, 1F, 5DD
830 DATA 1, E8, E3, 1, 89, 3E, 4C, 2, C4, 3E, 46, 2, BE, 2F, F, B9, 5E1
840 DATA 5, 0, F3, A4, 89, 3E, 46, 2, C4, 3E, 50, 2, BE, 2, F, 8B, 559
850 DATA 4C, FE, FF, 34, 83, C6, 4, F3, A4, 5E, B, F6, 75, F1, BD, 1F, 902
860 DATA 0, B8, 0, 1, 3, C7, 26, 89, 46, 0, 8B, EF, 8B, 36, 4A, 2, 4FF
870 DATA 8B, E, 4C, 2, 2B, CE, 3, C1, BB, 4E, 2, 8B, 17, 3, D3, 83, 5AA
880 DATA 3F, FF, 74, 24, 3, 1F, 83, 7F, 2, FF, 74, 5, 1, 47, 2, EB, 5A9
890 DATA EE, 8B, F3, 83, C6, 5, 33, C9, 8A, 4F, 4, E, 7, BF, 82, 3, 6EC
900 DATA F3, A4, BA, 7C, 3, E9, A8, 0, F3, A4, 2B, 16, 4A, 2, 26, 89, 734
910 DATA 96, 16, 0, B8, 0, 1, 3, C7, 26, 89, 86, 0, 0, 8B, E, 46, 443
920 DATA 2, 8B, 36, 44, 2, 8E, 1E, 48, 2, 2B, CE, 3, C1, 73, 6, BA, 4EF
930 DATA 22, 3, EB, 7C, 90, F3, A4, E, 1F, 5, 0, 2, 72, F1, 25, FE, 66D
940 DATA FF, 26, 89, 86, 2, 0, 5, 2, 0, 26, 89, 86, 6, 0, 5, 2, 37F
950 DATA 1, 72, DC, 26, 89, 86, 8, 0, 5, 2, 1, 72, D2, 26, 89, 86, 50D
960 DATA A, 0, 5, 0, 1, 72, C8, 89, 3E, 54, 2, 5, F, 0, 72, F, 2FC
970 DATA B1, 4, D3, E8, 26, 89, 86, 4, 0, 26, C6, 86, 1D, 0, 0, B4, 5EC
980 DATA 3C, 33, C9, BA, 8D, 2, CD, 21, 8B, D8, B4, 40, 1E, C5, 16, 50, 70F
990 DATA 2, 2E, 8B, E, 54, 2, 2B, CA, CD, 21, 1F, B4, 3E, CD, 21, 32, 533
1000 DATA C0, 50, B4, 49, 2E, 8E, 6, 48, 2, CD, 21, 58, B4, 4C, CD, 21, 64D
1010 DATA E, 1F, 83, 3E, 86, 2, 0, 74, 14, 52, BA, 9A, 2, E8, 24, 8, 4BA
1020 DATA A1, 86, 2, E8, 33, 8, BA, DA, 3, E8, 18, 8, 5A, E8, 1D, 8, 652
1030 DATA B0, 1, EB, CD, BB, E, 0, 8A, 4, 3C, 3A, 74, 21, BB, C, 0, 592
1040 DATA 3C, 25, 74, 1A, 8B, 44, 1, 3C, 3A, 75, 8, BB, C, 0, 80, FC, 4F5
1050 DATA 20, 76, B, E8, 55, 0, 57, BF, 57, 1, E8, 19, 0, 5F, 53, 83, 582
1060 DATA FB, 8, 77, 8, B3, 1, E8, 99, 8, 73, 1, 4E, 5B, D1, E3, 81, 711
1070 DATA C3, D, 2, FF, 17, C3, 51, 6, E, 7, 8B, D1, 33, DB, 56, 8B, 662
1080 DATA CA, F3, A6, 5E, 74, 1A, 43, 32, C0, 38, 45, FF, 75, 1, 4F, B9, 77E
1090 DATA A, 0, F2, AE, 80, 3D, 0, 75, E5, BB, D, 0, F9, 7, 59, C3, 6A5
1100 DATA 83, FB, C, 72, 3, BB, C, 0, F8, EB, F2, 57, 56, 6, 1E, 7, 673
1110 DATA 8B, FE, 33, C9, AC, 3C, 30, 72, 1A, 3C, 39, 76, 12, 3C, 41, 72, 615
1120 DATA 12, 3C, 5A, 76, A, 3C, 61, 72, A, 3C, 7A, 77, 6, 24, DF, AA, 521
1130 DATA 41, EB, E1, 7, 5E, 5F, C3, 80, 3E, 57, 2, 0, 74, 10, C6, 6, 5FB
1140 DATA 57, 2, 0, BB, A, 18, E8, 1B, 7, 33, C9, E8, 38, 6, 80, 3E, 520
1150 DATA 58, 2, 0, 74, 10, C6, 6, 58, 2, 0, BB, B9, 17, E8, 4, 7, 482
1160 DATA 33, C9, E8, 21, 6, 80, 3E, 5C, 2, 0, 74, 15, 8B, 16, 5A, 2, 4AD
1170 DATA B9, 1, 0, BB, 2C, 18, E8, EB, 6, E8, A, 6, C6, 6, 5C, 2, 5B4
1180 DATA 0, 80, 3E, 5F, 2, 0, 74, 19, 8B, 16, 5D, 2, 33,